home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / zfilter.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-07-02  |  10.9 KB  |  418 lines
  1. /* Copyright (C) 1993, 1995, 1996 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19. /* zfilter.c */
  20. /* Filter creation */
  21. #include "memory_.h"
  22. #include "ghost.h"
  23. #include "errors.h"
  24. #include "oper.h"
  25. #include "gsstruct.h"
  26. #include "ialloc.h"
  27. #include "idict.h"
  28. #include "idparam.h"
  29. #include "stream.h"
  30. #include "strimpl.h"
  31. #include "sfilter.h"
  32. #include "srlx.h"
  33. #include "sstring.h"
  34. #include "ifilter.h"
  35. #include "files.h"        /* for filter_open, file_d'_buffer_size */
  36.  
  37. /* Define whether we are including some non-standard filters for testing. */
  38. #define TEST
  39.  
  40. /* <source> ASCIIHexEncode/filter <file> */
  41. /* <source> <dict_ignored> ASCIIHexEncode/filter <file> */
  42. private int
  43. zAXE(os_ptr op)
  44. {    return filter_write_simple(op, &s_AXE_template);
  45. }
  46.  
  47. /* <target> ASCIIHexDecode/filter <file> */
  48. /* <target> <dict_ignored> ASCIIHexDecode/filter <file> */
  49. private int
  50. zAXD(os_ptr op)
  51. {    return filter_read_simple(op, &s_AXD_template);
  52. }
  53.  
  54. /* <target> NullEncode/filter <file> */
  55. /* <target> <dict_ignored> NullEncode/filter <file> */
  56. private int
  57. zNullE(os_ptr op)
  58. {    return filter_write_simple(op, &s_NullE_template);
  59. }
  60.  
  61. /* <source> <bool> PFBDecode/filter <file> */
  62. /* <source> <bool> <dict_ignored> PFBDecode/filter <file> */
  63. private int
  64. zPFBD(os_ptr op)
  65. {    stream_PFBD_state state;
  66.     os_ptr sop = op;
  67.     int npop = 1;
  68.  
  69.     if ( r_has_type(op, t_dictionary) )
  70.       ++npop, --sop;
  71.     check_type(*sop, t_boolean);
  72.     state.binary_to_hex = sop->value.boolval;
  73.     return filter_read(op, npop, &s_PFBD_template, (stream_state *)&state,
  74.                0);
  75. }
  76.  
  77. /* <target> PSStringEncode/filter <file> */
  78. /* <target> <dict_ignored> PSStringEncode/filter <file> */
  79. private int
  80. zPSSE(os_ptr op)
  81. {    return filter_write_simple(op, &s_PSSE_template);
  82. }
  83.  
  84. /* ------ RunLength filters ------ */
  85.  
  86. /* Common setup for RLE and RLD filters. */
  87. private int
  88. rl_setup(os_ptr op, bool *eod)
  89. {    if ( r_has_type(op, t_dictionary) )
  90.       {    int code;
  91.         check_dict_read(*op);
  92.         if ( (code = dict_bool_param(op, "EndOfData", true, eod)) < 0 )
  93.           return code;
  94.         return 1;
  95.       }
  96.     else
  97.       {    *eod = true;
  98.         return 0;
  99.       }
  100. }
  101.  
  102. /* <target> <record_size> RunLengthEncode/filter <file> */
  103. /* <target> <record_size> <dict> RunLengthEncode/filter <file> */
  104. private int
  105. zRLE(register os_ptr op)
  106. {    stream_RLE_state state;
  107.     int code = rl_setup(op, &state.EndOfData);
  108.     if ( code < 0 )
  109.       return code;
  110.     check_int_leu(op[-code], max_uint);
  111.     state.record_size = op->value.intval;
  112.     return filter_write(op, 1 + code, &s_RLE_template, (stream_state *)&state, 0);
  113. }
  114.  
  115. /* <source> RunLengthDecode/filter <file> */
  116. /* <source> <dict> RunLengthDecode/filter <file> */
  117. private int
  118. zRLD(os_ptr op)
  119. {    stream_RLD_state state;
  120.     int code = rl_setup(op, &state.EndOfData);
  121.     if ( code < 0 )
  122.       return code;
  123.     return filter_read(op, code, &s_RLD_template, (stream_state *)&state, 0);
  124. }
  125.  
  126. /* <source> <EODcount> <EODstring> SubFileDecode/filter <file> */
  127. /* <source> <EODcount> <EODstring> <dict_ignored> SubFileDecode/filter <file> */
  128. private int
  129. zSFD(os_ptr op)
  130. {    stream_SFD_state state;
  131.     os_ptr sop = op;
  132.     int npop = 2;
  133.  
  134.     if ( r_has_type(op, t_dictionary) )
  135.       ++npop, --sop;
  136.     check_type(sop[-1], t_integer);
  137.     check_read_type(*sop, t_string);
  138.     if ( sop[-1].value.intval < 0 )
  139.       return_error(e_rangecheck);
  140.     state.count = sop[-1].value.intval;
  141.     state.eod.data = sop->value.const_bytes;
  142.     state.eod.size = r_size(sop);
  143.     return filter_read(op, npop, &s_SFD_template, (stream_state *)&state,
  144.                r_space(sop));
  145. }
  146.  
  147. #ifdef TEST
  148.  
  149. #include "store.h"
  150.  
  151. /* <size> BigStringEncode/filter <file> */
  152. private int BSE_close(P1(stream *));
  153. private int
  154. zBSE(os_ptr op)
  155. {    stream *s;
  156.     byte *data;
  157.     long len;
  158.  
  159.     check_type(op[-0], t_integer);
  160.     len = op[-0].value.intval;
  161.     if ( len < 0 )
  162.       return_error(e_rangecheck);
  163.  
  164.     data = ialloc_string(len, "BigStringEncode(string)");
  165.     if ( !data )
  166.       return_error(e_VMerror);
  167.     s = file_alloc_stream(imemory, "BigStringEncode(stream)");
  168.     if ( !s )
  169.       {    ifree_string(data, len, "BigStringEncode(string)");
  170.         return_error(e_VMerror);
  171.       }
  172.     swrite_string(s, data, len);
  173.     s->is_temp = 0;
  174.     s->read_id = 0;
  175.     s->procs.close = BSE_close;
  176.     s->save_close = BSE_close;
  177.     make_file(op,
  178.           ((a_write | a_execute) | icurrent_space),
  179.           s->write_id,
  180.           s);
  181.     return 0;
  182. }
  183. private int
  184. BSE_close(stream *s)
  185. {    return 0;
  186. }
  187.  
  188. #endif                /* TEST */
  189.  
  190. /* ------ Utilities ------ */
  191.  
  192. /* Forward references */
  193. private int filter_ensure_buf(P3(stream **, uint, bool));
  194.  
  195. /* Set up an input filter. */
  196. const stream_procs s_new_read_procs =
  197. {    s_std_noavailable, s_std_noseek, s_std_read_reset,
  198.     s_std_read_flush, s_filter_close
  199. };
  200. int
  201. filter_read(os_ptr op, int npop, const stream_template *template,
  202.   stream_state *st, uint space)
  203. {    uint min_size = template->min_out_size + max_min_left;
  204.     uint save_space = ialloc_space(idmemory);
  205.     register os_ptr sop = op - npop;
  206.     stream *s;
  207.     stream *sstrm;
  208.     int code;
  209.  
  210.     /* Check to make sure that the underlying data */
  211.     /* can function as a source for reading. */
  212.     switch ( r_type(sop) )
  213.     {
  214.     case t_string:
  215.         check_read(*sop);
  216.         ialloc_set_space(idmemory, max(space, r_space(sop)));
  217.         sstrm = file_alloc_stream(imemory,
  218.                       "filter_read(string stream)");
  219.         if ( sstrm == 0 )
  220.         {    code = gs_note_error(e_VMerror);
  221.             goto out;
  222.         }
  223.         sread_string(sstrm, sop->value.bytes, r_size(sop));
  224.         sstrm->is_temp = 1;
  225.         break;
  226.     case t_file:
  227.         check_read_known_file(sstrm, sop, return);
  228.         ialloc_set_space(idmemory, max(space, r_space(sop)));
  229.         goto ens;
  230.     default:
  231.         check_proc(*sop);
  232.         ialloc_set_space(idmemory, max(space, r_space(sop)));
  233.         code = sread_proc(sop, &sstrm);
  234.         if ( code < 0 )
  235.           goto out;
  236.         sstrm->is_temp = 2;
  237. ens:        code = filter_ensure_buf(&sstrm,
  238.                      template->min_in_size +
  239.                           sstrm->state->template->min_out_size,
  240.                      false);
  241.         if ( code < 0 )
  242.           goto out;
  243.         break;
  244.        }
  245.     if ( min_size < 128 )
  246.       min_size = file_default_buffer_size;
  247.     code = filter_open("r", min_size, (ref *)sop,
  248.                &s_new_read_procs, template, st);
  249.     if ( code < 0 )
  250.       goto out;
  251.     s = fptr(sop);
  252.     s->strm = sstrm;
  253.     pop(npop);
  254. out:    ialloc_set_space(idmemory, save_space);
  255.     return code;
  256. }
  257. int
  258. filter_read_simple(os_ptr op, const stream_template *template)
  259. {    return filter_read(op, (r_has_type(op, t_dictionary) ? 1 : 0),
  260.                template, NULL, 0);
  261. }
  262.  
  263. /* Set up an output filter. */
  264. const stream_procs s_new_write_procs =
  265. {    s_std_noavailable, s_std_noseek, s_std_write_reset,
  266.     s_std_write_flush, s_filter_close
  267. };
  268. int
  269. filter_write(os_ptr op, int npop, const stream_template *template,
  270.   stream_state *st, uint space)
  271. {    uint min_size = template->min_in_size + max_min_left;
  272.     uint save_space = ialloc_space(idmemory);
  273.     register os_ptr sop = op - npop;
  274.     stream *s;
  275.     stream *sstrm;
  276.     int code;
  277.  
  278.     /* Check to make sure that the underlying data */
  279.     /* can function as a sink for writing. */
  280.     switch ( r_type(sop) )
  281.     {
  282.     case t_string:
  283.         check_write(*sop);
  284.         ialloc_set_space(idmemory, max(space, r_space(sop)));
  285.         sstrm = file_alloc_stream(imemory,
  286.                       "filter_write(string)");
  287.         if ( sstrm == 0 )
  288.         {    code = gs_note_error(e_VMerror);
  289.             goto out;
  290.         }
  291.         swrite_string(sstrm, sop->value.bytes, r_size(sop));
  292.         sstrm->is_temp = 1;
  293.         break;
  294.     case t_file:
  295.         check_write_known_file(sstrm, sop, return);
  296.         ialloc_set_space(idmemory, max(space, r_space(sop)));
  297.         goto ens;
  298.     default:
  299.         check_proc(*sop);
  300.         ialloc_set_space(idmemory, max(space, r_space(sop)));
  301.         code = swrite_proc(sop, &sstrm);
  302.         if ( code < 0 )
  303.           goto out;
  304.         sstrm->is_temp = 2;
  305. ens:        code = filter_ensure_buf(&sstrm,
  306.                      template->min_out_size +
  307.                           sstrm->state->template->min_in_size,
  308.                      true);
  309.         if ( code < 0 )
  310.           goto out;
  311.         break;
  312.     }
  313.     if ( min_size < 128 )
  314.       min_size = file_default_buffer_size;
  315.     code = filter_open("w", min_size, (ref *)sop,
  316.                &s_new_write_procs, template, st);
  317.     if ( code < 0 )
  318.       goto out;
  319.     s = fptr(sop);
  320.     s->strm = sstrm;
  321.     pop(npop);
  322. out:    ialloc_set_space(idmemory, save_space);
  323.     return code;
  324. }
  325. int
  326. filter_write_simple(os_ptr op, const stream_template *template)
  327. {    return filter_write(op, (r_has_type(op, t_dictionary) ? 1 : 0),
  328.                 template, NULL, 0);
  329. }
  330.  
  331. /* Define a byte-at-a-time NullDecode filter for intermediate buffers. */
  332. /* (The standard NullDecode filter can read ahead too far.) */
  333. private int
  334. s_Null1D_process(stream_state *st, stream_cursor_read *pr,
  335.   stream_cursor_write *pw, bool last)
  336. {    if ( pr->ptr >= pr->limit )
  337.       return 0;
  338.     if ( pw->ptr >= pw->limit )
  339.       return 1;
  340.     *++(pw->ptr) = *++(pr->ptr);
  341.     return 1;
  342. }
  343. private const stream_template s_Null1D_template =
  344. {    &st_stream_state, NULL, s_Null1D_process, 1, 1
  345. };
  346.  
  347. /* Ensure a minimum buffer size for a filter. */
  348. /* This may require creating an intermediate stream. */
  349. private int
  350. filter_ensure_buf(stream **ps, uint min_buf_size, bool writing)
  351. {    stream *s = *ps;
  352.     uint min_size = min_buf_size + max_min_left;
  353.     stream *bs;
  354.     ref bsop;
  355.     int code;
  356.  
  357.     if ( s->modes == 0 /* stream is closed */ || s->bsize >= min_size )
  358.       return 0;
  359.     /* Otherwise, allocate an intermediate stream. */
  360.     if ( s->cbuf == 0 )
  361.       {    /* This is a newly created procedure stream. */
  362.         /* Just allocate a buffer for it. */
  363.         uint len = max(min_size, 128);
  364.         byte *buf = ialloc_bytes(len, "filter_ensure_buf");
  365.         if ( buf == 0 )
  366.           return_error(e_VMerror);
  367.         s->cbuf = buf;
  368.         s->srptr = s->srlimit = s->swptr = buf - 1;
  369.         s->swlimit = buf - 1 + len;
  370.         s->bsize = s->cbsize = len;
  371.         return 0;
  372.       }
  373.     else
  374.       {    /* Allocate an intermediate stream. */
  375.         if ( writing )
  376.           code = filter_open("w", min_size, &bsop, &s_new_write_procs,
  377.                      &s_NullE_template, NULL);
  378.         else
  379.           code = filter_open("r", min_size, &bsop, &s_new_read_procs,
  380.                      &s_Null1D_template, NULL);
  381.         if ( code < 0 )
  382.           return code;
  383.         bs = fptr(&bsop);
  384.         bs->strm = s;
  385.         bs->is_temp = 2;
  386.         *ps = bs;
  387.         return code;
  388.       }
  389. }
  390.  
  391. /* Mark a (filter) stream as temporary. */
  392. /* We define this here to avoid importing stream.h into zf*.c. */
  393. void
  394. filter_mark_temp(const ref *fop, int is_temp)
  395. {    fptr(fop)->is_temp = is_temp;
  396. }
  397.  
  398. /* ------ Initialization procedure ------ */
  399.  
  400. BEGIN_OP_DEFS(zfilter_op_defs) {
  401.         /* We enter PSStringEncode and SubFileDecode (only) */
  402.         /* as separate operators. */
  403.     {"1.psstringencode", zPSSE},
  404.     {"3.subfiledecode", zSFD},
  405.         op_def_begin_filter(),
  406.     {"1ASCIIHexEncode", zAXE},
  407.     {"1ASCIIHexDecode", zAXD},
  408.     {"1NullEncode", zNullE},
  409.     {"2PFBDecode", zPFBD},
  410.     {"1PSStringEncode", zPSSE},
  411.     {"2RunLengthEncode", zRLE},
  412.     {"1RunLengthDecode", zRLD},
  413.     {"3SubFileDecode", zSFD},
  414. #ifdef TEST
  415.     {"1BigStringEncode", zBSE},
  416. #endif
  417. END_OP_DEFS(0) }
  418.